﻿module Lab4_1

let solution xs start step =
  let rec solve xs ys =
    match xs with
    | [] -> ys
    | x :: tail -> solve tail ((step ys.Head x) :: ys)
  solve xs start

//let step y x = y + h * (f x y)
